home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / irc / KuangEleven3Gm.lha / Kuang Eleven 3 / Rexx / Timer.AMIRX < prev    next >
Text File  |  1998-05-09  |  450b  |  15 lines

  1. /* $VER: Timer.amirx 3.0 (9.5.98) Delay execution of commands
  2. */
  3. options results
  4. parse arg d rest
  5. if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then do
  6.     cecho('Fatal Error: Cannot load rexxsupport.library')
  7.     exit
  8. end
  9. cecho('Execute "'rest'" in' d 'seconds.')
  10. parse UPPER VERSION ver
  11. freq=substr(word(ver,6),1,2)
  12. call Delay(d*freq)
  13. "SAY" rest
  14. exit
  15. cecho:;"ECHO P="d2c(27)"b«Timer»" arg(1)'.';return 0